Global Biodiversity, Trade, and Conservation Funding

World Maps

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For example, you can include Bold and Italic and Code text. For more details on using R Markdown see http://rmarkdown.rstudio.com.

You should test out updating your GitHub Pages website:

  • clone your group’s blog project repo in RStudio
  • update “Your Project Title Here” to a new title in the YAML header
  • knit index.Rmd
  • commit and push BOTH the index.Rmd and the index.html files
  • go to https://stat231-s21.github.io/Blog-Team-Save-the-Planet/ to see the published test document (this is publicly available!)

Biodiversity

threatened_iucn <- read.csv("threatenediucn_final.csv")
world_map <- map_data(map = "world"
                      , region = ".")

threatened_all <- threatened_iucn %>%
  group_by(Country) %>%
  summarise(tot_species = sum(num_species)) %>%
  full_join(world_map, by = c("Country" = "region"))

ggplot(data = threatened_all, aes(x = long, y = lat, group = group)) +
      geom_polygon(mapping = aes(x = long, y = lat, fill = tot_species), 
                   colour = "black") +
      theme_void()  +
      coord_fixed(ratio = 1.3) +
      scale_fill_viridis(option = "magma", direction = -1, na.value = "white") +
      labs(title = "Global Species Diversity by IUCN Threat Level"
           , fill = "Number of Species*"
           , caption = "*Regions in white have no data")

International Trade

Conservation Funding (as of 2013)

conservation <- read_csv("conservation_final.csv")
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   region = col_character(),
##   total_aid_funding = col_double(),
##   total_domestic_funding = col_double(),
##   trust_funds_and_debt_swaps = col_double(),
##   other = col_double(),
##   total = col_double(),
##   log_funding = col_double(),
##   sqrt_funding = col_double(),
##   long = col_double(),
##   lat = col_double(),
##   group = col_double(),
##   order = col_double(),
##   subregion = col_logical()
## )
## Warning: 35929 parsing failures.
##  row       col           expected  actual                     file
## 1222 subregion 1/0/T/F/TRUE/FALSE Cabinda 'conservation_final.csv'
## 1223 subregion 1/0/T/F/TRUE/FALSE Cabinda 'conservation_final.csv'
## 1224 subregion 1/0/T/F/TRUE/FALSE Cabinda 'conservation_final.csv'
## 1225 subregion 1/0/T/F/TRUE/FALSE Cabinda 'conservation_final.csv'
## 1226 subregion 1/0/T/F/TRUE/FALSE Cabinda 'conservation_final.csv'
## .... ......... .................. ....... ........................
## See problems(...) for more details.
# Map of Log(funding)
ggplot(conservation, aes(x = long, y = lat, group = group, 
                         fill = log_funding)) +
  geom_polygon(color = "black") +
  theme_void() +
  coord_fixed(ratio = 1.3) +
  labs(title = "Conservation Funding By Country*"
       , subtitle = "as of 2013"
       , fill = ""
       , caption = "*Regions in white have no data") +
  #scale_fill_continuous(low="thistle2", high="darkred",                      guide="colorbar", na.value="white")
  scale_fill_viridis(option = "viridis", direction = -1, na.value="white")

In a study from the 1920s, fifty cars were used to see how the speed of the car and the distance taken to stop were related. Speeds ranged between 4 and 25 mph. Distances taken to stop ranged between 2 and 120 feet, with the middle 50% falling between 26 and 56 feet.

You can even create tabs if you want!

Bulleted list

You can make a bulleted list like this:

  • item 1
  • item 2
  • item 3

Numbered list

You can make a numbered list like this

  1. First thing I want to say
  2. Second thing I want to say
  3. Third thing I want to say